home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1018 < prev    next >
Text File  |  1998-01-08  |  722b  |  14 lines
  1. /dfnt{
  2.  /tpamt X/fnam X dup 2 and 0 ne/bf1 X 4 and 0 ne/usangl X/nmv X
  3.  FontDirectory fnam known not{fnam strpn{pop findfont fnam nwf}
  4.  {findfont pop}ifelse}if
  5.  nmv{cleartomark}if/sa X fnam findfont dup/fnt X/MFontType known
  6.  not dup/nbm X{fnt/FontType get 0 eq{F}{fnt/PaintType 2 copy known
  7.  {get 0 ne}{pop pop T}ifelse}ifelse}{T/usangl X T/bf1 X T}ifelse{/tpamt 0 def}if
  8.  usangl sa 2 and 0 ne and/usangl X F/doss X
  9.  sa 16 and 0 ne{fnt fnam sss sts 0 stlf}{sa 8 and 0 ne{fnt fnam sos sts 1 stlf}
  10.  {sa 1 and 0 ne bf1 and{fnt fnam sbs sts 2 stlf}{tpamt 0 ne{fnt fnam sts 3 stlf}
  11.  {nbm fnt/FontType get 0 ne and/doss X fnt}ifelse}ifelse}ifelse}ifelse
  12.  [exch 0 usangl{1 add}if doss{2 add}if] far 3 1 roll put
  13. }B
  14.